home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 13-03.C < prev    next >
Text File  |  1992-01-31  |  466b  |  19 lines
  1. #include <fastgraf.h>
  2. #include <stdio.h>
  3.  
  4. void main(void);
  5.  
  6. void main()
  7. {
  8.    printf("Mary Had a Little Lamb...\n");
  9.    fg_music("T150 L8 EDCDEEE P DDD P EGG P EDCDEEE L16 P L8 EDDEDC$");
  10.    fg_waitfor(18);
  11.  
  12.    printf("up the scale in two octaves...\n");
  13.    fg_music("L16 CC#DD#EFF#GG#AA#B O+ CC#DD#EFF#GG#AA#B$");
  14.    fg_waitfor(18);
  15.  
  16.    printf("Beethoven's Fifth Symphony...\n");
  17.    fg_music("T180 O2 L2 P L8 P GGG L2 D# L24 P L8 P FFF L2 D$");
  18. }
  19.